home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / util4 / 0utils.lha / 0Utils / FilePart.data < prev    next >
Text File  |  1995-08-19  |  878b  |  60 lines
  1.  
  2. #ifdef TPLTER
  3.  
  4. FilePart = {
  5.  
  6.     SHORT = {{ extract a filename's filepart }};
  7.  
  8.     DESCRIPTION = {{
  9.     Filepart gets a filename and extracts its
  10.     AmigaDOS file-part.
  11.  
  12.     The resulting string is sent to STDOUT.
  13.  
  14.      RESULT
  15.     a filename's filepart
  16.     }};
  17.  
  18.  
  19.     EXAMPLES = {{
  20.     >FilePart a:b
  21.     "b"
  22.  
  23.     >FilePart a/b
  24.     "b"
  25.  
  26.     > filepart ram:t/jabba.bak
  27.     jabba.bak
  28.     }};
  29.  
  30.     SEEALSO = {{
  31.     dos.library/FilePart
  32.     Suffix, PathPart
  33.     }};
  34.  
  35.     HISTORY = {{
  36.     01-08-93 b_noll created
  37.     20-02-95 b_noll restructured source
  38.     21-02-95 b_noll added version/format-prefix/offset
  39.     20-03-95 b_noll added args diagnostics
  40.     19-08-95 b_noll created .data file
  41.     }};
  42.  
  43.  
  44.     Template = "FILE/A";
  45.     Arguments = {{
  46.     STRPTR file;
  47.     }};
  48.  
  49.     version = "1.2";
  50.     body = {{
  51.         retval = RETURN_WARN;
  52.         if (PutStr (FilePart(argv->file)) == 0) retval = RETURN_OK;
  53.         PutStr("\n");
  54.  
  55.     }};
  56.  
  57. };
  58. #endif
  59.  
  60.